home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / ear / fraphix1.lha / FraphiX.LHA / FraphiX / rexx / Ping_&_Pong_Frame.rexx < prev    next >
OS/2 REXX Batch file  |  1995-09-10  |  2KB  |  85 lines
  1. /* Questo script ARexx serve per clonare ed invertire l'ordine dei fotogrammi */
  2. /* $VER1.0 */
  3.  
  4. if~show("L","rexxsupport.library") then do
  5.    if addlib('rexxsupport.library',0,-30,0) then
  6.       say "Rexxsupport.library caricata"
  7.    else do
  8.       say "Rexxsupport.library non trovata"
  9.       exit 10
  10.    end
  11. end
  12.  
  13.  
  14. LF = x2c("a")
  15. if exists("Env:FlagARexx") = 0 then do
  16.        say LF || "Invio messaggio: ATTENDI"
  17.        call delay 50
  18. end
  19. say LF || "Scansione in corso..." || LF
  20.  
  21.  
  22. /* Routine di scansione dei Fotogrammi */
  23.  
  24. fotogramma=1
  25. trovato = 0
  26. non_trovato = -1
  27. file = trovato
  28.  
  29. do until (file=non_trovato)
  30.        contatore='0000' || fotogramma
  31.        nome='Fraphix_Store:Frame' || right(contatore,4)
  32.        if exists(nome) = 0 then file = non_trovato
  33.        /* say nome */
  34.        fotogramma = fotogramma + 1
  35. end
  36.  
  37. /* Routine di renumerazione dei Fotogrammi */
  38.  
  39. fotogrammi = fotogramma - 2
  40. say lf || 'Trovati ' || fotogrammi ||' fotogrammi.' ||LF
  41.  
  42. say 'Clonazione & Inversione in corso...' || lf
  43. if fotogrammi > 0 then 
  44. do contatore = 1 to fotogrammi
  45.        fotogramma = contatore
  46.        nome1 ='Fraphix_Store:Frame' || right('0000' || fotogramma,4)
  47.        fotogramma = (2 * fotogrammi) - contatore + 1
  48.        nome2 ='Fraphix_Store:Frame' || right('0000' || fotogramma,4)
  49.  
  50.        com1 = 'Copy ' || nome1 || ' ' || nome2 || ' quiet'
  51.        
  52.        if (nome1 = nome2) = 0 then do
  53.         
  54.           address command com1
  55.       /*
  56.          say com1
  57.          say lf
  58.          call delay 20
  59.        */
  60.        end
  61.  
  62. end contatore
  63. else do
  64.       say 'Non ci sono Fotogrammi!'
  65. end
  66.  
  67. if exists("Env:FlagARexx") = 0 then do
  68.        say "Invio messaggio: CONTINUA"||LF||"Attesa risposta..."
  69.        call delay 50
  70.  
  71.        address "FRAPHIX"
  72.        options results
  73.        QUIT
  74.  
  75.        if (rc=0) then
  76.              say lf||"Risposta Ricevuta."
  77.             else do
  78.              say lf||"Errore "||rc||lf||result
  79.        end
  80.      
  81.  
  82.        call delay 300
  83.  
  84. end
  85.